home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
batch
/
library
/
batutl2
/
wait.asm
< prev
next >
Wrap
Assembly Source File
|
1988-04-20
|
1KB
|
52 lines
TITLE WAIT 1-1-80 [4-19-88]
;Toad Hall Disassembly, tweak
;INITIAL VALUES : CS:IP 0000:0100
; SS:SP 0000:FFFF
CodeSeg SEGMENT
ASSUME DS:CodeSeg,SS:CodeSeg,CS:CodeSeg,ES:CodeSeg
ORG 100H
_Wait proc near
JMP SHORT Outer_Delay
bcntr_103 DB 3 ;outer loop counter (constant)
wcntr_104 dw 0 ;middle loop counter
Outer_Delay:
MOV DL,bcntr_103 ;load outer loop counter
OR DL,30H ;Asciify
MOV AH,2 ;display char
INT 21H
MOV DL,'.' ;display some dots
INT 21H ;...3 of them
INT 21H
INT 21H
MOV WORD PTR wcntr_104,10H ;refresh middle counter
Middle_Delay:
MOV CX,0FFH ;inner loop counter
Inner_Delay:
MOV AH,0BH ;check kbd status
INT 21H
CMP AL,0FFH ;anything there?
JNZ Relup136 ; nope, reloop
MOV DL,0FFH ;output char
MOV AH,6 ;direct kbd/display
INT 21H
CMP AL,1BH ;was it an Escape char?
JNZ Exit ; nope, go exit
INT 23H ; yep, do the DOS Break interrupt
Relup136:
LOOP Inner_Delay ; loop inner counter
DEC WORD PTR wcntr_104 ;decrement middle loop counter
JNZ Middle_Delay ;not elapsed, keep looping
DEC BYTE PTR bcntr_103 ;decrement outer loop counter
JNZ Outer_Delay ; not elapsed, keep looping
Exit: INT 20H
_Wait endp
CodeSeg ENDS
END _Wait